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INTRODUCTION 

XREF is a program for the M6800 that reads an assembly 
language source file and creates from it a table of all symbolic 
references encountered in the source file. The table produced is 
sorted in alphanumeric order by symbol name. Each symbol name is 
associated with the number of the line in which it is defined, as 
well as the number(s) of the lines where it is referenced (used as 
an operand). 

XREF is serially reusable pure code; the program would 
normally be executed from RAM, but it may be placed in ROM if 
so desired. The program maintains a stack pointer at all times; 
it is therefore fully interruptible and compatible with multi- 
tasking. The program has been written with easy modification 
in mind. By changing a few pointers, the buffers, the table 
area, and the I/O routines can be placed at any address. 

System requirements for execution of XREF are: An M6800 
processor with at least 5K bytes of RAM (8K minimum recommended) , 
a set of system I/O routines (usually those in mixpuc ® ), a 
terminal, a file input device, and an output list device (which 
could be the terminal). The program size is approximately 4K 
bytes; each symbol from the source file requires 10 bytes of RAM, 
plus 2 more bytes for each reference to the symbol. A medium 
length program might have 250 symbols and would require approximately 


4K of table space (250*10+250*3*2 = 4000). 


OPERATING INSTRUCTIONS 
XREF supports both disk CO-RES source files and disk SSB/TSC Z 
Editor files. The format for using XREF is as follows: Oo 
XREF, FILE NAME, S or P, C or blank 


S = Serial printer (port 3) P = Parallel printer (port 6) 
C = CO-RES file 


The defaults are the parallel port and Editor file - if this is 
what you are using, you need only type: XREF,FILE NAME, 

XREF will read the input file, creating the cross reference 
table as it reads. At the completion of reading, the READ COMPLETE 
message will be displayed on the terminal, and the program will 
begin to output the table to the listing device. When the table is 
printed, XREF returns control to DOS. If the program must be 
stopped during the printing phase (to clear a paper jam, for example) 
the listing may be restarted by jumping to location $0103. 
LIMITATIONS :* 

XREF will read line numbers from the input file, or will 
generate its own, depending upon the user option selected. In 
either case, line numbers must greater than 0 and less than 65024, 

XREF will ignore symbol names that are identical to opcode 
mnemonics. 

The source file alpha characters must be all uppercase in the 
symbol names and opcode mnemonics; lower case is OK in comments. 

XREF uses a portion of page 0 for flags, pointers, constants, 
etc. It also operates some temporary buffers in this area; 
therefore, page 0 must be read/write memory. 

The buffers starting at TBUFZ, LBUFZ, RFCB, and BEGT must be 


in read/write memory, although not necessarily in contiguous RAM. *) 


HOW IT WORKS 

XREF reads a source file in much the same way as an assembler 
would; character strings are copied into a line buffer and are 
processed when each line is terminated (by a carriage return 
character). When a complete line is available, it is checked to 
see if it is a comment line. If so, it is ignored and the next 
line is obtained. Otherwise, the line is processed by parsing 
for tokens. When a token is found, it is compared against entries 
already in the symbol table. If the token is already in the table, 
the line number is included in the table. If it is not in the 
symbol table, it is checked against the opcode table. If it is 
an opcode, the symbol is ignored but the opcode type is checked 
to see if any operands are utilized. If not, the next line of 
‘input is obtained. If operands are required, the program parses 
the next field for symbol names and adds any that it finds to the 
table. 

If the token found does not appear in either the symbol 
table or the opcode table, it is assumed to be a new symbol and 
a new table entry is created for it. 

The process of reading and processing lines from the input 
file continues until an end-of-file character is found. 
At this time, reading is terminated and the table is printed out. 

The process of entering a symbol into the table consists of 
finding the correct location for it, moving up all entries past 
that point, and then inserting the new symbol into the space 


created by the move. The same procedure is followed when adding 


a reference to an existing symbol. Thus, the table is sorted as 
it is built. The structure of the table is: The first 6 bytes 
are the ASCII values of the characters in the symbol name; the 
next 2 bytes are the binary value of the number of the line 
where the symbol was defined; the next 2 bytes (and succeeding 
byte pairs) are the binary value of the numbers of the line(s) 
where the symbol is referenced; the next two bytes have a value 
of FFFF (this is an 'end of entry' marker). If no references to 
the symbol exist, then the FFFF byte pair immediately follows 
the definition byte pair. If the symbol is not defined, the 
definition byte pair has a value of 0 and will not be printed 
(this will cause an assembler error when you try to assemble 
the source file!) The entry for the next symbol name begins 
immediately after the FFFF byte pair. See Figure 1 for an 
example of the table structure. 

If, in the process of adding an entry to the symbol table, 
the XREF program runs out of room in memory it will enter a 
recovery mode. The recovery mode causes a current printout of 
the symbol table to occur, followed by the deletion of all 
references to defined symbols. If this creates at least 40 bytes 
more table space, the program will resume where it left off, 
and continue until either an EOF is read from the input file, 
or the table is full again. When the table is full, the same 
procedure of printing the current table (which will not contain 
the old references this time) and deleting references occurs. 
If memory overflow continues to occur, you may get aS many as 
several tables printed for each line of input. The only cure 
for this problem is more memory in your system. 


If the purging of the defined symbol references does not 


4 


free at least 40 bytes of memory, then the program gives up, 
prints a TABLE FULL message, and returnS control to the monitor. 
The process of printing the cross reference table consists 
of printing 6 ASCII characters from the table (the symbol name), 
followed by a 5 digit decimal line number (its definition line), 
followed by as many 5 digit decimal line numbers as are required 
for the references found. When a byte pair of value FFFF is 
encountered, the printing for this symbol is terminated, and the 
next print line is started with the next symbol name. The end 
of the table is recognized when the next symbol's name is found 
to start with a null (the table was cleared to Os upon initialization). 
XREF supports the Motorola standard assembler format, where 
the first character of the line indicates whether or not a label 
is present; it also supports an improved free format convention. 
The improved format requires that a comment line must start with 
an asterisk in column 1; any other character indicates that the 
line contains assemblable code. Labels and opcodes may start 
in any column, including column 1. Leading spaces are ignored. 
A label is defined when the character string is terminated by 
a colon; for example, 
LBL1: STA A 3,X 
is a legitimate line of source code that defines a label. Any 
line that does not include a colon immediately after the first 


token is assumed to start with an opcode or a macro name. 


CUSTOMIZING 

The XREF program was written to be easily modified. The 
jump table starting at address 0100 contains vectors to all 
I/O and system subroutines used. These pointers may be changed 
to suit your system. The text strings used for console interaction 
all reside in the TEXT STRINGS table. You may wish to change 
these, particularly in the forms control characters. Note that 
patch areas have been left in key locations here, so that more 
characters may be added if desired. 

The 'end of string' character used in this program is 
a control-D (04); if your system uses something different, 
change the character at the end of each control message. Note: 
the same character is used by the XREF program itself in the 
table output routine; do not change the printer output strings 
unless you also change the PSTR and PCHAR routines. 

Page 0 of the program includes numerous constants useful 
in controlling the the input and output format of the program. 
LCOUNT is the number of lines per page (66 as supplied). PPLEN 
and SPLEN are the number of reference line numbers printed per 
line of output; if you have a 32 column list device, set this 
to 3; if you have a 40 column device (such as a PR-40), set this 
to 4; if you have a 72 column device (such as a TTY), set this 
to 9; if you have an 80 column device, set this to 10. The PPLEN 
variable is used for the output device on a parallel port, while 
SPLEN is used for a serial port. PPORT and SPORT are the 1/0 
addresses of your list devices; the PPORT variable is set to 
801C (slot 7) as supplied, while SPORT (serial port) is set to 
800C (slot 3). 


PGON is the page option switch; putting a 0 value here will 
suppress pagination. MAXMEM will hold the highest usable memory 
address; if you wish the XREF program to automatically size 
memory at sign-on, set this value to 0. Otherwise, whatever value 
you place here will be the highest address used by the program. 
TABSTA is the starting address of the symbol table; if you wish 
to create a patch area between the end of the program and the 
beginning of the table, set TABSTA to a larger value. Or if you 
wish to locate the table at some arbitrary address, place the 
value of that address into TABSTA. TABEND must not be modified 
by the user; this is a program controlled pointer to one location 
past the end of the table. TBUF holds the value of the starting 
address of the input buffer, while TBUFE holds the value of 
one plus the end address of the input buffer. If you have a 
system input buffer area already, put its start address and its 
end addresst+tl into these locations. LBUF and LBUFE hold the starting 
and end+l addresses for the line buffer. If you wish to move 
this, place your new address values into these locations. LCHAR 
contains the number of characters to be ignored at the beginning 
of each line; this is set to 0 as supplied. This is useful for 
ignoring control characters, nulls, rubouts, and other garbage 
that some editors include with the text. For example, if your 
input file has each line terminated with CR, LF, RUB, RUB as 
is sometimes done with TTYs, set LCHAR to 3 to ignore the LF 
and the two rubouts. XREF assumes that a CR is the last character 
of any line, and that anything following it belongs to the next 
line. EOF is the end of file character, control Z as supplied. 


If your system uses a different character, change the value stored 


in this location. 


The opcode tables in this program include all the Motorola 
6800 opcode mnemonics and pseudo-ops, plus BLO, BHS, and TTL. 
If you wish to include new opcodes, they can be added into the 
tables by the following convention: the mnemonic is entered as 
an FCC string, followed by an attributes byte. The attributes 
byte is 0 if if the instruction takes no arguments (no operands), 
or 1 if the instruction references memory, or 2 if the instruction 
references an accumulator, or 3 if it references both accumulator 
and memory. Any opcode included in the tables will not appear 


on a cross reference listing. 


Boe 

Begs 

goes 16968 ABC 
Heed 108 NEE 
Hoes EGES MONIT 
bags Lee 

Beer 10988 CE 2988 

eees 1863 AB Be  LOOPAN 
geg9 1885 BF Fee 

8618 i888 os 

Baii 1889 sc Seo 

Bgi2 1880 26 FS 

HLS 188E FE EES 

BHid isid MM 
aeis 


NO ERRORS) GETECTED 


6caa CROSS 
VERSION 1. & 


SYMBOL DEFINED REFERENCED 


ABC a: 4 ° 
LOGFAN a: 12 

MP 14: 

MONIT oe 13 

HO q: 5 3 
TOTAL SYHBULS: a 


TTL 
OPT 
EQu 
Eau 
Eau 
ORG 
LDS 
LDA 
STA 
INS 
CPS 
ENE 
JMP 
RAE 
END 


REFERENCE PROGRAM 


SAMPLE PROGRAM 


NREF SAMPLE FROGRAP 
PAG. NOG, NOS 
#1568 
ABC 
#EBES 
See 
##1S08+ABC 

AS 

A NG8-128 


NONITGR’S ARDRESS 


SPRESSION IN OPERAND FIELD 
INGESTING 


#ABC+S 409 
LOOPANGCOLINT 
MONIT 

i 


ii 


SEE FIGURE 1 


BEGT: 


41 


SP 


} 


: 
} 


'M 


< 


} 


SYMBOL TABLE STRUCTURE 


defined in line 3 
referenced in line 4 
referenced in line 7 
referenced in line 1l 


end of entry 


defined in line 8 
referenced in line 12 


end of entry 


defined in line 14 
note: no reference 
end of entry 


Figure l 


XRET 


OOS 
OOS 


Ooo 
D2e0 
Det 
Tie 7 
DAY 
[voz 
D783 
IV/ae 
0000 
Q004 


ELAc 
FAD 
ELACG 
E1idd 
n2e3 
OO1A 
OOBA 
002A 
0020 
0003 
SFFF 


OGAQ 


Ooag 
OOAL 
OOAS 
OOAS 
QOA7 
OOAS 
QOAY 
OOAL 
QOAL 
OOAF 


OOBL 
OOBZ 
OOBS 
OOBS 
OOR7 
OOBY 
OOBE 


ooo 1 
a00z2 
000s 
a00g 
0005 
O00 
0007 
OO 
Oo0Y 
oo1d 
ool1l 
aos 
OO13 
OO14 
Ools 
OdLE 
0017 
OOLE 
ool? 
OaZzO 
oo271 
O027 
Q0zs 
a0v4 
OO2zs 
OOz4 
0027 
ao0ze 
00ZzF 
OOO 
Oos1 
OBZ 
0033 
OO34 
0035 
O34 
0037 
OOSS 
0029 
0040 
0041 
OO47 
0043 
0044 
0045 
GO44 
0047 
045 
0049 
9050 
OOS 1 
005z 
0053 
0054 
0055 
0054 
QOR7 
005¢e 
oosy 


COM UTR AWARE AEE Mal Fly 


TTL XREF 

OFT Noa, FAG, NOS 
+ 
# GOO CRUE REP ERD NCE 
*% BY BOE HALE AND PAUL 
# REVISED 6-1-7%7) MINOR 
* 
#EGQUATES 
+ 
VER Eau “i 
REV EGu “3 
# 
DISK Eau $D000 
ZOOL EG BS SO+ OT SE 
ZFLSFC EGU $29 14+D1SK 
ZGNCHR EGU $2974 DISK 
ZTYFDE EGu $ZAP+DISK 
YMEMAX E till $BOZIAOL SE 
COFM EQu $7S3+D1ISK 
DFM Eau $7 B40 DE 
XFC EQu 0 
GHi4R EG 4 
* 
INEt RF Eel SEPA 
OUPEERE Emu $Elyt 
KED EGU  INEEE 
CONS EGU GUTEEE 
CONTRL EGU $2ZS3+ 015K 
EUFC EGU $lA 
SYMC Emu ee 
COMCHR EGU $ZA 
SPACE EQU $20 


CREGF EGU 3 


IAULF 
SEAREY 


PAGE 


GL AERATOR 


IMPROVEMENTS 


DISK SYSTEM ENTRY POINTS 


002 FARM TI Mi MAX 


KEYEOART 

CONSOLE 

SYSTEM MONITOR ENTRY FPOINT 
EQF CHAR 

SYMBOL TERMINATOR 

COMMENT CHARACTER 

SPACE 

CO-RES EF CHAR 

FOR DOS46. 50 


QUTFUT FORT TYPE 

# GF SYMBOLS CTR 
SYMBOL FARSING FTR 
SYMBOL FARSING PTR 
SYMBOL LENGTH 
OPCODE TYFE FLAGS . 
TEMF TABLE FTR 
SYMBOL STARTING ADDR 
TEMF SYMTAE PTR 
TEMP SYMTAB PTR 


MEMMAX EGU $SFFF 
* 

ORG $AO 
# 
*#VARIAELE STORAGE IN FAGE 0 
# 
TYPORT RME i 
NSYM RME Zz 
ENDISYM RME Z 
BEGSYM RMB Zz 
SYMLEN RME i 
MRI RME i 
OPCEND RME Zz 
CSYM RMB Z 
AFTER RME zZ 
BEFORE RMB Zz 
* 


* TEMPORY SAVE REGISTERS 
* 


ASAVE RMB i 
BSAVE RMB i 
XSAVE RMB Zz 
XTEML RMB Z 
XTEMZ RMB Zz 
XTEM3S RMB Zz 
DX RMB Zz 


TEMF X 


ont 


XREF 
OOBD 


QOOBF 
ooclh 
oocs 
00cs 
oou7 
oory 
GOCE 
oocD 
OOtcr 
ooDo 
Oa L 
Oobz 
oonsS 
oous 
oon? 
OOLF 
QOEO 
OOEL 
QQEZ 
OOES 
QOE4 
OOES 
OOE7 
OOE? 
QOEA 


Oar 4 
OOFSG 
OOFS 


0100 
oL100 
0103 
OLE 
Oloy 
O10 
OLOF 
O11z 
O115 
GL1s 


OL1iB 
O1lz3 
O1L37 
O13B 


FF 
oc 


ic 


es 
o7 


ay 
DS 
El 


O2ZZz14 
OZ6E 
ELAC 
Elgnl 
Dze3 
O39B 
O33 
O30B 
0415 


(6) 8) 


0040 
o0é1 
0062 
0063 
0064 
0065 
0046 
00647 
O068 
0069 
0070 
0071 
0072 
0073 
O074 
0075 
Q076 
0077 
O07S 
0079 
eler=ia) 
0081 
OOSZ 
00Ss 
O04 
008s 
OOS 
0087 
O08 
0089 
on7a 
009 | 
OOPZ 
0073 
OOF74 
009s 
O0vE 
0097 
aoo0gs 
0099 
Q100 
O101 
O10Z 
0102 
o104 
0105 
OL06 
0107 
oL10s 
0109 
OLL0 
Olll 
OL112Z 
Ol11ls3 
QLL4 
O115 
O11 
0117 
OL118 
O11Lg 


SX 

* 

LNUM 
LLNUM 
TBUFPF 
LBUFP 
LENT 
DDEND 
psorR 
REM 
NSPAC 
NLINE 
COLS 
LINLEN 
DECNO 
DECNOGE 
SYMBOL 
SYMBE 
LCOGUNT 
LCHAR 
LNFLG 
PPLEN 
SFLEN 
MAXMEM 
SPORT 
ACRE L 
ACREZ 
#PPORT 
PRORT 
DFPORT 
ECIF 
TABEND 
TAESTA 
PGON 
LBUF 
LBUFE 
RFCBF 
+ 


RMB 


RMB 
RME 
RME 
RME 
RME 
RME 
RME 
RME 
RME 
RME 
RMB 
RMB 
RME 
FCB 
RME 
FCB 
FCB 
FCE 
FCE 
FCE 
FCB 
FDE 
FOE 
FCE 
FCE 
FDB 
FOB 
FCE 
FCE 
FOR 
FDE 
FCB 
FOE 
FDE 
FUE 


he 


OCPREMWR RR RENNNNNNNN 


$S00C 
$17 
$15 


COMPUTERWARE ASSEMBLER FAGE OZ 


TEMP X 


CURRENT LINE # 
LINE # FROM FILE 
FILE BUFFER FTR 
LINE BUFFER PTR 
SYMTAB LENGTH 
DIVIDEND 

BIVISOR 
REMAINDER 

“# SPACES TO NAME 
LINES REMAINING 
COLUMNS REMAINING 


DECIMAL # STRING 
SINGLE SYMBOL BFR 


# OF LINES PER FAGE 


# OF LEADING CHARS PER LINE 


O=NO # ELSE LINE #°S 
PARALLEL PTR LINE LENGTH 
SERIAL PTR LINE LENGTH 
MAX USABLE MEM LOCN 
SERIAL PORT#2 

ACIA RESET CODE 

ACIA RUN CODE 


S013 PARALLEL FORT#4 


$E01C 
P 
EFC: 
BEGT+1 
BEGT 

1 
LBUFZ 
LBUFEZ 
RFCE 


PARALLEL PORT#7 

DEFAULT PORT — PARALLEL 
END FILE CHAR 

SYMTAB END —- DYNAMIC 
SYMTAE START: IS CONSTANT 
PAGE OPTION SWITCH 

LINE BFR START 

LINE BFR END+1 

DISK BUFFER START 


#ALL THE FRECEEDING MUST BE IN RAM: 
#THE REMAINDER GF THIS PROGRAM 
*MAY BE ORGED AT ANY ADDRESS, AND 


#MAY GE PLATED IN ROM. 


+ 


START 


KREAD 
TCONS 
MONIT 
READ 
OFEN 
INITIO 
IOGUT 
* 


ORG 
JMP 
JMF 
JMF 
JMP 
JME 
JMP 
JMF 
JMP 
IMF 


$100 
HSTART 
REPRIN 
KBD 
CONS 
CONTRL 
READD 
OFFEND 
INTGUT 
FPSOUT 


*#TEXT STRINGS 


FDE 
FCC 
FCE 
RME 


START OF PROGRAM 

REPRINT THE TABLE 

KEYBOARD READ 

TYPE CHAR ON CONSOLE 

JUMP TO THE MONITOR 

DISK READ ROUTINE 

DISK INITIALIZATION AND GPE 
INITIALIZE OUTPUT DEVICE 
FARALLEL AND SERIAL OUTPUT 


$OD, 0A, $OD, OA 
76800 CROSS REFERENCE’ 
$b, 0, $A, 0, 0,4 


Ss 


PATCH AREA 


N RTN 


XREF 


O142 


QO1iSs 


O1S4 37 
O164 % 


O147 
OLée 
O18 
O1S2 
O19) 
OLve 
O1LAE 
OLAF 
O1cl 


o1cz 3 


O106B 
OLDE 
OLED 
OLEA 
OLEC 
QLEE 
OLFO 
OLFS 
OLFS 
O204 
0205 


QZOB 3 


OZO0E 
O217 


o2zz1 
0224 
O227 
OZzZA 
O22 
O2ZZE 
OZ30 
0233 
0234 
0236 
OZ3E 
OZ3E 
O240 
OZ4Z 
OZ44 
0246 
OZ49 
0Z4C 
OZ4F 
0252 
OZS5 


OZ56 
0Z5B 
oZ5D 
OZ5F 
OZ62 


BD 


EBD 
v1 
Zz& 
CE 
ED 


OS0E 
O32A 
(elsTers) 
BF 
Cl 
C7 
O3S4 
ODDS 
Cs 
O7L9 
OSSF 
ED 
AQ 
E4 
DZ 
OL1E 
0455 
O1l1lzZ 
OLLS 
OALS 
OAOQ 


0450 
EE 
1Z 
O1LAF 
0455 


O1zZ0 
OL1zi 
Olzz 
OLz3 
O1z4 
OL1Zs 
O1Z& 
O127 
O1Z25 
oLzy 
O130 
OLSL 
O1lS2 
OQLS3 
0134 
OLS5 
O134 
OL37 
O138 
OL3BY 
O140 
O14i 
0142 
O143 
0144 
OL45 
O144 
O147 
O146 
O149 
O150 
OLSh 
O1Sz 
OL1S3 
0154 
OLSS 
O156 
O157 
0156 
O1S9 
0160 
OL46L 
016z 
OLes 
0164 
O165 
0166 
OL67 
01466 
G149 
0170 
OL71L 
O17Z 
O173 
0174 
OL175 
0176 
O177 
0178 
OLTY 


COMPUTERWARE AZSEMBLER FAGE Of 


MES2 FCC “SYMBOL TABLE FULL~ 


FCE 4 

MESS Fcc is VERSION ¢ 
FCG VER, “. , REV 
FCB 4 

MESS FCC “SYMEOL DEFINED REFERENCED~ 
FCs 4 

MESS Foc “TOTAL SYMEOLS: <¢ 
FCB 4 

MES7 Fee -6500 CROSS REFERENCE FROGRAM~ 
FOE 4 

MESS For “FILE READ COMPLETE- 
FCB 4 

MES? For: f4sosscSsSsS SSSSSeSsS SSS SSS 
FCB $1, $A, $4 

MESiO FCC FILE NAME: - 
FOE 4 


CR4 FCE $01, $A 

CRS FCE $0, $A 

CRZ FE $D, $A 

CRS FCB $0, $A, 4 

SF4 FCB $20, $3A, $04 COLON - SPACE 
i ca 


S15 FCC 
FCE 4 
EOP FCL $0, $A, $D, $A, $I, $A 
Foe fet 
FCE $U, $A, $0, $A, $0, $A, $0, $A, $4 
RME 10 FATCH AREA 
# 
* START EXECUTION HERE 
* 
HSTART JSR SIZMEM GET MEMORY SIZE 
JSR CLLBUF 
LDX #0 
STX LNUM 
STX LLNLUM 
STX LENT 
JSR CLTAGLE CLEAR SYMBOL TBL 


LDX #LEUFEZ 
STX TBUFP 
JSR FENDT 
JSR CLSYM 


LDA A DFORT DEFAULT OUTPUT 
STA A TYFPORT 
LDA A SPLEN 
STA A LINLEN 
LDX #MES1 
JSR TELOF TELL THE OFERATOR 
JSR OPEN DISK INIT AND OPEN 
JSR INITIC 
SR FNAME GET FILE NAME FROM FCB 
JSR FOPEN FILE IS OPEN; FRINT FN 
* 
*#MAIN LOUF 
* 
MAIN JSR GLINE GET A LINE 
CMP A EOF Is IT EOF? 
BNE BFARSE NG 
LDX #MESS YES - TELL GPERATOR 


JSR TELOPF 


XREF COMPUTERWARE ASSEMBLER FAGE 04 


0265 CE 0137 0180 LOX #CRLF 
o7éeed ED O455 O18) JSR TELOF 
0265 BO 0873 0182 REPRIN JSR PTABLE EOF; PRINT TABLE 
OZ4E 7E O10C O1es3 JMP MONIT DONE 
O154 # 
0271 DE F4 O165 BRPARSE LUX LBUF BEGIN PARSING AT FIRST CHAR .. 
0273 DF A3 O186 STX ENDSYM .. OF LINE BUFFER 
0275 A& OO O187 LOA A a, X 
0277 S1 ZA 0168 CMF A #COMCHR COMMENT? 
Q279 27 DD oLey BEW MAIN YES 
O19O0 # 
O27B BO oS097 O19) FARL JSR FARSE FIND A SYMBOL 
OZ7E DE AS OL?z LOX BEGSYM 
0280 27 D6 OLes BEG MAIN NO SYMBOLS LEFT 
O278z2 9C F4 O1L94 CPX LBUF 
Q264 27 OS O195 BEG TSRCH1 STARTS IN COL tf 
0286 DE AS O1L9S LOX ENDSYM 
Qzas A&G OO O1L97 LDA A O,X 
OZ8BA Si SA o19s CMF A #5YMC COLON? 
ozsc 276 iB O1Lvy BNE TSRCHZ NO 
OZ00 # 
Q23E BD O5A4 Oo2Z01 TSRCHI JSR SSRCH SYMBOL SEARCH 
0291 DE AB O20Z LDX CSYM 
0293 2& 10 aZzo0s ENE IDEF FOUND IT 
0Zz95 BL 0676 0204 JSR OSRCH TRY FOR OPCODE 
O79S 96 AS OZ05 LOA A MRI 
O2Z7A 26 26 0206 BNE ACRTST WAS AN OPCODE 
o29C BD O719 0207 JSR ADDSYM MUST BE A SYMBOL 
OZ9F BI O7AE O2708 JSR INSDEF INSERT DEF 
OZAZ 7E 027B OZ0F JMP FARL GO FOR MORE 
OZ10 # 
OZAS BU O7AS OZ11 IDEF JSR INSDFS INSERT THE DEFINITION 
OZAS 7E 027B 0212 JMP FARL 
OZ13S * 
OZAE EBD 06764 0214 TSRCHZ JSR SRCH OPCQDE? 
OZAE 96 AS OZ15 LDA A MRI 
OZBO 2&6 10 OZ16 BNE ACRTST YES 
OzBzZ BD OSA4 0217 JSR SSRCH NOT GPCODE, TRY SYMBOL 
O2E5 DE AB Oz16 LUX CSYM 
OZB7 2& O03 OZ19 BNE ADREF WAS A SYMBOL 
OZBY EBD O719 0220 JSR ADDSYM INSERT NEW SYMBOL 
OZZ1 # 
O2ZBC BD O7C&é 02272 ADREF JSR ADBREF INSERT REF 
OZBF 7E 027LB 0223 JMP PARL GO FOR MORE 
OZZ4 * 
02CZ 94 AG 0ZZ5 ACRTST LDA A MRI 
ozC4 DE AS 0226 LDX ENDISYM 
OZC6 8&5 02 Q227 BIT A #2 AC REF BIT 
OZCS 27 OS 0226 BEG IACK NOT AC REF 
O2CA BD OS0A 0229 JSR SMASH SQUEEZE GUT EXTRA SPACE 
OZ30 * 
O2CD 6&5 Oi OZ21 IACK BIT A #1 MRI CHECK 
OZCF 26 OS 023Z BNE TLINE IS AN MRI 
OZDi VE OZ53 0233 JMF MAIN GET NEXT LINE 
0204 BD 0842 0234 TLINE JSR EPARSE FIND NEXT EXPRESSION 
OZD7 DF AS 0235 STX ENDSYM 
OZD9 7E 0OZ7EB 0236 JMP PARL 
OZS7 * 


0236 *#0OVERFLOW DUMP 
OZ39 # 


XREF COMPUTERWARE ASSEMBLER FAGE O58 


o2z0C BDI OS73 0240 OVERF JSR FTABLE PRINT THE TABLE 
OZDIF BD OASC O241 SR FURGE REMOVE DEFINED REFS 
OZEZ BD OAC4 0242 JSR FLB CHECK MEMORY AVAILABLE 
QOZES BD O7FD 0243 JSR MEMREM 
OZES 26 IF 0244 BNE OVR1L LOTS LEFT 
OZEA CO 25 OZ45 SUE EB #40 
OZEC 24 iB 0244 BCC OVR1 AT LEAST 40 LEFT 
OZEE CE O137 0247 LOX #CRLF NO ROGUM — TELL GFPERATOR 
O2F1 BO 0455 02745 JSR TELOP 
O2F4 CE O137 0249 LDX #CRLF 
O2ZF7 BO 0455 0250 JSR TELOF 
OZFA CE O142 OZ51 LDX #MESZ 
O2FD BD 0455 O252 JSR TELOF 
QS00 CE OL37 O2Z53 LIX #CRLF 
0303 BI 0455 0254 JSR TELOP 
O306 7E OL10C O2Z55 MF MONIT ... AND GIVE UP! 
0309 DE F4 0256 OVR1L LOX LBEUF RESET TO START GF LINE .. 
OS0B 7E O27E 0257 IMF PARL AND CONTINUE 
OZ53 #* 
O2Z57 #SETUP ROUTINES 
0240 * 
OSOE FE Dsoz o2zéi SIZMEM LOX YMEMAX MEMORY SIZER 
O31i DF ES 0262 STX MAXMEM SAVE IN XREF MEM LIMIT 
Osis 26 14 OOZES ENE FSIZS 
S15 DE Fl 0264 LIX TABSTA 
OSi7 OF 0265 DEX 
O31S G4 SS 0264 LIA A #$55 
O2lA OS O2Z47 FSIZ4i INX 
O3SI1B &C SFFF 0266 CFX #MEMMAX MAX MEM 
QS1LE 27 07 Oz49 BEG FSIZEZ 
0220 AZ 00 0270 STA A 0,X 
a322 AL oO O27 1 CMP AQ: X 
0324 27 F4 O272 BEG FSI21 
Os2z& OF O273 DEX 
O327 DF ES 0274 FSIZEZ STX MAXMEM LAST WSABLE LOCATION 
O3Z9 39 0275 FSIZS RTS 
O2Z74 # 
OSZA DE F4 0277 CLLEUF LOX LEUF CLEAR LINE BLIF 
O32C0 6F 00 0275 CLLI CLR xX 
OSZE Of O2Z79 INX 
OBSZF 90 FS O2750 CPX LBUFE 
O3S31 24 FY OmaL BNE CLLI 
O333 37 O27E2 RTS 
O7BS 
O334 DE Fi 02Z24 CLTABL LDX TAESTA CLEAR SYMBOL TABLE 
O336 OF o785 TEX 
Q337 O8 026846 CLS1 INX 
O325 6F 00 0287 CLR xX 
O3S3A YC ES O2RS CPX MAXMEM 
O33C 24 FY OZ389 BNE CLS. 
OS3SE SY QZPO RTS 
OZ71 # 
QO33SF 36 Ooz92 CLSYM FSH A CLEAR SYMEOL BUFFER 
0340 DF BS OZ93 STX XTEM1L 
0342 G& ZO 0294 LOA A #SFACE 
0344 CE OOLDY 0295 LOX #S5YMBGL 
0347 A7 00 OoZ76 CLSML STA A G,X 
O349 OS OZ97 INX 
O24A SC OODF 0296 CFX H#5YMRE 


Osa 2G Fa On77 ENE CSM. 


XREF 


O34F 
O85 1 


O352 


OBE3 
0355 
O357 
035A 
o35C 
O35F 
O41 
0363 
O3465 
0367 
O349 


O34E 
O36E 
O370 
0372 
O375 
0377 
O377 

37B 
375 
O37F 


ry tet 


OE L 
0383 
O385 
0387 
O3BA 
O38C 
O36E 


0390 


OB? 1 


O37E 
Os70 
OS9F 
OSAl 
OSA4 
OBAG 
OBAS 
O3AA 
OSAC 
O3AE 


OSAF 


AL 


BS 
FS 
D2 4 
65 
D2y7 
a 
Os 
a3 
AQ 
E4 
D2 


OF 


a300 
O3s01 
30Z 
O303 
o304 
O205 
OBO4 
0307 
OB0e 
O30 
OS10 
O31l 
OS12 
O313 
O314 
O315 
OSL4 
O217 
OLE 
Osly 
a320 
0321 
O3Z2Z 
O32Z3 
O324 
0325 
O3ZE 
0327 
328 
0329 
330 
OS2L 
O33Z 
OBIS 
0334 


OSS5 


a4 O336 


B= 
BZ 
FS 
D736 
oO? 
EE 
Z24 
BS 
Ez 


OL 


O337 
0333 
0339 
0340 
O34 1 
0342 
0343 
0344 
0345 
O46 
0347 
0245 
0349 

350 
OSS 1 

S52 
0353 
0354 
0355 
Q354 
0357 
0356 
0359 


# 


LOX 
FUL A 
RTS 


COMFPUTERWARE ASSEMBLER FAGE 04 


XTEM1L 


* I/O DRIVERS 


% 
OFEND 


* 


% CHECK 


% 
OPENZ 


% 
* OFEN 
+ 
OPENS 


READL 


* 

* BISK 
# 

RERR 


STX XSAVE 
LDX RFCEF 
JSR ZFLSPC READ FILE SPECS 
BCs EXIT BRANCH IF ERRUR 
JSR ZGNCHR READ NEXT CHAR 
CMP A #°S IS IT SERIAL 
BNE DOPENZ * NO - TAKE DEFAULT 
LDA A #°35 SET UP FOR SERIAL 
STA A TYFORT 
LDA A SPLEN 
STA A LINLEN 
FoR CO-RES FILE AND SET-LUPF 
JSR ZGNCHR READ NEXT CHAR 
CMP A #$0D IS IT A CARR RET? 
GEQ OFENZ YES - DEFAULT IS SSE FORMAT 
JSR ZGNCHR REAL NEXT CHAR 
CMF A #°C IS THIS A CO-RES FILE? 
BNE OPENG 
LIA A #$04 
STA A LCHAR NO. OF CHARS TO PASS OVER 
LDA A #CREOF 
STA A EOF CO-RES EOF CHAR = $03 
DISK FILE FOR READ 
LBX RFCEF 
LOA A #@04R 
STA A XFL, X 
JSR IIFM 
BNE ERR 
INC XFC, X 
LOX XSAVE 
RTS 
RME 10 I/O FATCH AREA #1 


FROM DISK FILE 


STX 
STA B 
LIX 
JSR 
BNE 
CMP A 
BEG 
LDX 
LDA B 
RTS 


ERROR 


LDA A 


XSAVE 

BSAVE 

RFCEF 

DFM 

RERR 

EOF EOF? 
CLOSE 

XSAVE 

BSAVE 


(OR EOF) HANDLING 


1,X 


XREF 


O3B1 


OSES : 


OSES 
OSES 


OSE? 


O3BE 
OSBE 
Osc l 


aO3C4 


OSCE 
O2D0 
O3DZ 
O305 
OSI7 


OSL? : 


OSDE 
o300 
OSDF 
OSE 1 


OSES 
OSES 
OSE4G 
OSES 
OSE? 
OSEB 
OSED 
OSEF 


OSPF L 
OBFS 
OSFS 
OSF7 
OSF9 
O3FE 


OSFO 


0407 
040% 
QO405 
040D 


040E 
O41a 
041zZ 
O414 


04 
ly 
DZAY 


EF 


nZAY 
D7S3 
D250 


E7 
EY 
(aye) 
EA 
a0 
ii 


03460 
O36é4 
0362 
O363 
03464 
O45 
0366 
QS67 
0368 
OS69 
O370 
27 1 
O37Z 
0373 
O374 
0375 
O274 
O377 
S73 
O379 
OSSO 
OSE L 
oz 


OSes 


Ze 


Oso 
0400 
O4o1 
0402 
0403 
0404 
0405 
0406 
0407 


a408 


0409 
O4ta 
0411 
O41Z 
0413 
0414 
0415 
O416 
0417 
o4ie 
0419 


* DISK 
+ 
CLOSE 


% 


COMFUTERWARE ASSEMELER 
A #4 
CLUSE 
ZTYPDE 
READ L 
ZTYPDE 
COFM 
ZCOLD 


io IYO PATCH AREA #2 


CLOSE ROUTINE 


RFCEP 
XFC, X 
DFM 
ERR 

A EOF EOF? 
READL 


* INITIALIZE QUTFUT FORT (S) 


+ 
INTOUT 


* 
PINIT 


SINIT 


RESTOR 


* 


BSR 
LIA 
CMP 
BEG 


LIX 
CLR 
STA 
COM 
STA 
LDA 
STA 
ERA 


LDX 
LDA 
STA 
LOA 
STA 
BRA 


RME 


N SA 


STX 
STA 
STA 
RTS 


LDX 
LDA 
LDA 
RTS 


SAVER 
B #°S 
B TYFORT 
SINIT 


FPORT 
B1,X 


B 0, X 

B #$3F 

B 1,X 
RESTOR 


SPORT 
ACRC 1 
O,X 
ACRCZ 
O,X 
RESTOR 


tt ho to 


1a I/O FATCH AREA #3 
VE AND RESTORE RTNS 


XSAVE 
A ASAVE 
B ESAVE 


XSAVE 
A ASAVE 
B BSAVE 


*xQUTPUT TO EITHER SERIAL OR FARALLEL FORT 


* 


FAGE 07 


XREPF COMPUTERWARE ASSEMBLER FAGE of 


0415 eb FO 0420 PSOUT ESR SAVER 


0417 C& 55 O424 LUA EB #-°S 
0419 Di Aa 0422 CMF B TYPORT 
O415 27 1E 0423 BEQ SOUT 
0424 # 
O410D DE EE 0425 POUT LINX PFORT 
O41F A7 00 0426 STA A GX QUTFUT CHAR 
O421 84 37 0427 LIA A #%23 
0423 A7 Ol 04275 STA A 1,X STROLGE IT 
04275 84 3F 0429 LOA A #$3F 
0427 A7 O1 0430 STA A 1,X END STROBE 
O42 40 Of 0431 FOUTL TST i,X WAIT FOR ACKNOWLEDGE 
04275 2A FC 0432 BPL POUT 4 
04270 A& aa O433 LUA A a,x CLEAR THE FLAG 
O42F 20 DD 0434 BRA RESTOR 
O435 
O4314 0436 RME ia I/G) PATCH AREA #4 
O437 # 
O435 DE £7 0435 SOUT LOX SPORT 
0439 # 
O430 C& OF 0440 SOUTL LIA EB #402 
O43F E4 00 0441 AND B O,X 
0441 27 FA 0442 GE SOUT L 
0443 A7 Ol 0443 STA A 1,X 
0445 20 C7 0444 BRA RESTOR 
0445 # 
0447 O446 RME 10 I/G FATCH AREA #5 
O447 # 
O451 BO O109 0446 TELL JSR TCONS 
0454 OS 0449 INX 
0455 A& 00 O450 TELOP LBA A 0, X STRING TO CONSOLE 
0457 &1 04 0451 CMP A #4 
O459 24 FS 0452 BNE TELA 
O45E 37 0453 RTS 
O454 # 
O455 watseaeaese 
O456 # 
O45C D4 El 0457 GLINE LDA B LCHAR GET A LINE FROM FILE 
O45E BL 032A 0456 JSR CLLBUF CLR LINE BUF 
O461 DE F4 0459 LDX LEUF 
0463 DF CS 0460 STX LBUFP 
0445 84 O03 04461 LDA A #CREOGF 
0467 91 EE 0462 CMP A EOF 
O449 24 OZ O463 BNE GLi 
O464B 97 Ez 0444 STA A LNFLG 
0440 BD OLOF 04465 GLI JSR REAL GET NEXT CHAR 
0470 &1 OZ 0464 CMP A #$02 CO-RES START CHAR? 
0472 27 OF 0447 BE@ GLSS YES - GET FIRST LINE NO 
0474 91 EE 04435 CMP A EOF 
O474 27 O68 O449 BEQ GL3 
0478 SB 0470 TST B ANY LEADING CHARS? 
O479 27 OC 0471 BEQ GL4 NONE LEFT 
O47E SA 0472 DEC B 
047C 20 EF 0473 BRA GLI 
O474 
O47E DE C5 0475 GL3 LDX LBUFF 
0460 A7 00 0476 STA A OX 
0482 39 O477 RTS 
0475 # 


0483 BD O1OF 0479 GL3S JSR READ 


XREF 


0486 5 


0487 
045A 
o4ec 
04SE 
o490 
0492 
0494 
0496 
0498 
049A 
0495 
O49E 
O49F 
o4Al 


O4AS : 


0405 
O40: 
O4AA 
o4an 


O4AE 
O4B0 
O4E4 
0453 
O4E5 


O4B6 & 


O4BS 
O4BA 
O4EC 


OGEZ 
OZ 


39 


oocl 
oocl 


OS 
oocl 
Cz 
ooC i 


0450 
044 
04572 
0483 
0454 
0455 
0466 
0487 
0485 
0457 
O470 
0491 
0492 
0493 
0494 
0495 
0476 
0497 
0475 
0499 
09500 
O50 1 
502 
o503 
a504 
O505 
A506 
0507 
a506 
OSoy 
O510 
OSil 
OSLZ 
OS1S 
oOS14 
OS15 
OS16 
OS17 
O518 
OSi1y 
0520 
osz1 
OS2ZzZ 
0523 
O524 
O52Zz5 
05246 
0527 
O525 
OsZz9 
0530 
0531 
0532 
OS33 
0534 
0535 
0536 
0537 
OS3S 


0539 


GLS 


GLN4 


E 


m 


nop ew wm bD DD 


LNFLG 
GL45 
GLNUM 
#$20 
GLS 
#40 
GLI 
LBUFP 
Q, X 


LEUFF 
#$D 
GLY 
LLNUIM 
GLS 
LNUM+1 
GL4 
LNLIM 


LNUM 


LEUFE 
GLI 


#80 
0,X 
LBUFP 
GLI 


LNFLG 
GLN1 


LLNUM 
LLNUM+1 


#°0 
GLNé 
#°9 
GLNé 
LLNUM+1 


LLNUM 


LLNUM 


GLN4 
LLNUM 


LLNUM+1 
LLNUM 


COMPLITERWARE ASSEMBLER FAGE OY 


LINE #5 FROM SOURCE? 
NO 

YES, GET IT 

VALID CHAR? 

YES 


BAD CHAR - IGNORE IT 


PUT CHAR INTO LINE BUF 


OVERFLOW? 
NO 
YES, FORCE CR 


YES - LINE NOs. 


ZERO 

NOT NUMERIC — DONE 
NINE 

NOT NUMERIC —- DONE 
MULT LLNUM BY 10 


TIMES 2 


TIMES 4 
TIMES 5 


TIMES 10 


XREF 


O4EC 
O4EE 
O4FO 
OA4FZ 
O4F4 


O4F7 
O4FA 


O4FC 
O4FD 
O4FE 
O501 
O503 
O505 
0508 


a5ov 
o50c 
OSOF 
0512 
o514 
O516 
OoLs 
O514 
OSic 
OSE 
O520 
OSz1 
O523 
0525 
0527 
O529 
o5zZC 
OSZE 
O530 
0532 


Q534 % 


0536 
O536 
OSSA 
OSs 
O30 
QS3E 
0540 
O54 1 
0543 


O545 3 


0547 
0549 
OS4E 
o54C 
OS4E 


30 
Cz 
Cz 
os 


core] ma 


O1LOF 
CF 


OOEZ 
20 
OS 


OLOF 


OOAS 
OOAS 
OSSF 
AS 


0540 
o541 
0542 
o543 
0544 
0545 
0544 
0547 
0548 
0549 
as50 
O551 
O552 
oOss3 
O554 
0555 
O5S4& 
0557 
O5Ss 
o55% 
0560 
O564 
0562 
OS43 
0564 
O545 
OS446 
0567 
0565 
O549 
0570 
O57 4 
057Z 
O573 
0574 
0575 
0576 
0577 
03578 
OS79 
0580 
O58 1 
0582 
OSES 
0584 
o585 
O586 
O587 


OSs 


Osay 
0590 
O59 1 
0592 
aS73 
OS94 
OS¢5S 
0596 
O77 
059s 
OS99 


FARL 


PARZ 


PARS 


PAR4 


PARS 


PAR7 


PARS 


* 
HHH 
# 
ALF'HAN 


#70 
LLNUM+ 1 
LLNUM+1 
GLNS 
LLNUM 


READ 
GLNZ 


LNFLG 
#$20 
GLNY 
READ 


BEGSYM 
BEGSYM+1 
CLSYM 
ENDSYM 
O,X 

#°Z 
FAR4 
#°A 
PAR4 
BEGSYM 


QO, X 
ALFPHAN 
PARZ 
ENDSYM 
SCOPY 
#$40 
PAR7 
#°% 
PAR7 
#°S 
FAR7 
#427 
FARS 


FAR L 


O.X 
ALFPHAN 
PAR7 
#$0 
PARS 


PARS 
PARS 


ALPH1L 


COMPUTERWARE ASSEMBLER FAGE 10 


ADD THE DIGIT 


GET THE NEXT CHAR 


SFACE? 


FARSE THE LINE FOR. . 
... THE NEXT SYMBOL 


END OF LAST SYMBOL 


ALPHA? 


IS ALFHA 


IS ALPHANUMERIC 


MOVE IT TO SYMECL BFR 
AT SIGN 


AFUSTROFHE 


WAS ALPHANUMERIC 
CR? 


END OF LINE’? 
WAS A NULL - END OF LINE 


Is ACCA AN ALFHANUMERIC? 


XREF 


O83 
aS54 
OSS5 


OS357 


Ons) & 


QS35 : 


O3S0 
OF 
O56) 


O43: 


O5465 


O564 3 


O547 
On49 
QS4é 
OSG6E 
O54F 
O57 1 
O873 
0574 
O574 
0575 
QO57A 
O57C 
o570 
OS7F 
OSo 4 
OSes 
OnSs 
Osa4 
ODS 
OSSA 
OSI 
OSE 
OSSF 
O59 1 
OS7S 
O59S 
OS97 
O59 


aSyvA 3 


O3S9C 
OSIE 
OSAO 
OSAL 
OSA3 


OS5A4 
OSA 
OSA 
OSAB 
OSAD 
OSAF 
OSB 1 
OSES 


Fi 
AF 
ageo 


Q600 
a604 
0602 
O403 
0604 
0408 
0606 
04607 
0608 
O409 
a610 
O4L4 
0412 
O413 
0414 
OG615 
0414 
O417 
O41 
O41L7 
04270 
O47 4 
0422 
O425 
0424 
0425 
O46246 
O427 
0625 
0429 
0430 
O63 4 


O437 
04633 
O63 
0440 
O44 4 
0642 
0443 
0644 
0645 
0644 
0447 
0645 
0649 
0650 
O65 1 
0652 
0653 
0654 
0655 
0656 
0657 
0656 
0659 


ALFH1L 


ALFHZ 
ALFHS 
+ 
HK 
+ 
SCOPY 


COMPLTERWARE ASSEMELER FAGE Li 


ALFHS 1SN°T 


ALFHZ Is OK 


RETURN 0 IF ALPHANUMERIC 


XTEML COPY SYMBOL FROM LINE TO BUF 
CLSYM 
BEGSYM 


X 
SYMBOL 


ENDVSYM 
SCOr4 

X 
SYMBOL+ 1 


ENDSYM 
SCUP4 

x 
SYMBOL+Z 


ENDISYM 
SCOrP4 

X 
SYMBOL+S 


ENDSYM 
SCor4 

Xx 
SYMEOL+4 


ENDSYM 
SCOF4 

x 
SYMEOL+5 


XTEM1 


TAEBSTA SEARCH FOR SYMEOL 
BEFORE 


LENT ZERG LENGTH TABLE? 
SSkoO NO 
YES - NO SYMBOLS 


XREF 


OSE4 
OSES 
OSES 


OSEBA ' 


OSBC 


OSBE : 


OSCO 


OSts : 


oscs 
OSC7 
o5CE 


OSCA 35 


OSCE 
oScy 
OSCF 


OSDZ 


OSD4 2 


OSD4G 
oSDs 
OSDA 


OSC 2 


OSE 
OSEO 


OSEZ 35 


OSES 
OSES 
OSE7 


OSE 39 


O5EA 
OSEC 
OSEL 
OSEF 
OSFO 
OSF 2Z 
OSF 4 
OSFS 
QOSFSE 
OSF7 
OSFS 
OSFY 
OSFA 
OSFC 
OSFE 
OSFF 
O601 


0603 2 
O605 


0607 
O609 
0608 
0600 
O4OF 
O611 
OG13 
O615 


O617 Z 


O61? 


0460 SS 


064615 


04662 
04465 


0464 


9665 


0666 
667 


06463 5 


0669 
0670 
O47 1 
0672 
0473 
0674 
046735 
0676 
0477 
0678 
O479 
0680 
O681 
0682 
0655 


0454 § 


OGE5 
04654 
O657 
0685 
439 
0690 
O67L 
0692 
0695 
0474 
O4705 
0496 
O697 
06978 
679 
0700 
O701 
0702 
O703 
0704 
QO705 
0706 
Q707 
070% 
O707 
0710 
O7414 
O712 
O713 
0714 
O715 
O7 16 
O717 
0718 
O719 


PmeDpDmMPpPpPrPyDp 


DD 


TABSTA 
a,X 
SSR 
SYMBOL 
SSR7 
SSR4 
FORWD 
SSRL 
AFTER 


BEFORE 


BEFORE 
XTEML 
COMSYM 
SSRY 
SSRs 
XTEML 
BEFORE 
XTEMZ 
SSR2 
XTEML 
AFTER 


XTEML 
CSYM 
XTEMZ 


DDEND+ 1 


DDEND 


DSOR+ 1 
DSOR 


1,X 
DIVZ 


ZX 
4,X 
DIVz 
HS14 
DIV. 
a, X 
3, X 
4,X 
4,X 
3, X 
Z,X 
i,X 
DIV4 
Z,X 


COMPUTERWARE ASSEMBLER FAGE 12 


NOTHING THERE — QUIT 

CHECK FIRST CHAR j 
MATCH — TRY MORE CHARS re] 
MISMATCH - ALREADY FAST SYMBOL 
MISMATCH - NOT THERE YET 


COMPARE ALL SIX CHARS 
GOT IT! 

NOT FOUND; GUIT 

NOT THERE YET 


SET “CURRENT SYMEOL-< 


DIVIDE ROUTINE - (A) = DDEND 
(B) = DSOR 


MAKE WORKSPACE 
POINT TQ IT ALL 


DIVISOR MSE 


KEEP TRYING 


XREF 


0415 
o41D 
O6lE 
0620 
0621 
O625 
0625 
627 
0629 
O62B 
0620 
O62F 
0631 
0632 
0433 
O&34 
O435 
O63 


OG37 ° 


0638 
O439 
043A 


OG3C0 3 


O63E 
0640 
0642 
0644 
0645 
0647 
0649 
O44E 
0640 
064E 
O64F 
0650 
04651 
0652 
0653 


0654 S 


Q655 ° 


06546 
O657 
0655 
065A 
065C 
O45E 
0660 
0662 
0663 
0665 
0667 
0669 
066B 
06460 


A? 
oc 
20 
on 
&? 
é9 
64 


NIE & 
rpm 


27 


oo 
es 


~ 


G0 GG G9 to 


ao Re 


OL 
ol 
04 


OS 


ol 


» OF 


ele) 


» ES 


co 
CE 


0720 
a721 
O722 
0723 
0724 
0725 
0726 
O727 
0723 
O729 
0730 
O7314 
O7 32 
O733 
0734 
O735 
O736 
O727 
0735 
O73 
0740 
O7414 
0742 
O743 
0744 
0745 
0746 
O747 
0748 
Q749 
07350 
a751 
O73z 
O753 
0754 
O735 
0734 
O757 
075% 
O759 
0760 
O761 
O762 
O76 
0764 
O765 
0766 
0767 
0768 
a749 
0770 
O771 
077Z 
O773 
0774 
0775 
0776 
0777 
0778 
O779 


DIVv4 
DIVS 


% 
KHHHH 
% 
BACKUF 


BACK 1 


BACKZ 


FORS 


TAESTA 
BACKZ 
0. X 
#$FF 
BACKL 


TAESTA 
BACKZ 
O,X 
BACK 1 


TABEND 
FOR4 
0,X 
#$FF 
FORL 


TABEND 
FOR4 
O.X 
FORL 


TABENDB 


COMPLUTERWARE ASSEMBLER FAGE 13 


NOT DONE 


RESTORE STACK 


MSB OF QUOTIENT 


LSE 


BACK UF TO SYMBOL START 


TABLE START ADDR 


LOOK FOR $FF PRECEEDED BY .... 


ANOTHER $FF 


BID NOT REACH TAESTA 


REACHED TAESTA 


ADVANCE TO START UF NEXT 
TABLE ENTRY 


TABLE END 


LOOK FOR $FF FOLLOWED BY... 


ANOTHER FF BYTE — AND THEN 


XREF 


O46E : 


0670 
0472 
0674 


0675 ° 


4674 
0679 
O67B 
0é70 
O67F 
0680 
0682 
0483 
O6B5 
0686 
0638 
0689 
0686 
O68E 
0490 
0693 
O495 
O697 
699 
069B 
oé70) 
O49F 
O6A0 
068Z 
O6A4 
O6AG 
OLAS 
O4AY 
O6AE 
oéAD 
OéAF 
OGE1 
O46BS 


O6B5 © 


O6E7 
O06BS 
O6BE 
Oé6Bn 
Q6CO 
06CZ 
0604 
06C5 
O6C7 
06CY 
OéCE 
Oé6CE 
O46CE 
0400 
04602 
O6D4 
Oé6Dé 
04608 
O&DA 
O6DC 


04 
aa 
F7 


oo0as 


ocs4 
BS 
AS 
B7 
ele) 
AS 
1o 


E7 
BS 
ao 
1A 


0750 
O7e1 
O78Z 
O7 SS 
0784 
O7S85 
O76 
0737 
O786 
O789 
O770 
O77 1 
O77Z 
O773 
O774 
O795 
O796 
O777 
O79R 
O779 
OB00 
osol 
OBOZ 
OB503 
oBo04 
0805 
OS046 
0307 
Osos 
O809 
O8Lo 
Ost 
O81Z 
OS13 
O81 4 
0815S 
OSBLS 
0817 
Oe8ls 
OslLy 
O8Z0 
O8z1 
082Z 
0823 
0824 
08Zz5 
0826 
0827 
082s 
082z9 
O&30 
0831 
083Z 
OS33 
0834 
OS35 
O8346 
0837 
OBsE 
0839 


OSR10 


OSRit 


OSRi2 


Oo mw hoe 


td 


PPR YP PD 
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FORS ... A NON-SFF BYTE 


MRI OFCODE TABLE SEARCH 
ENDSYM+1 CALCULATE LENGTH OF SYMBOL 
BEGSYM+1 

SYMLEN SAVE LENGTH 


OSR1i1 1 CHAR CODE 
SRS 
OSRY 3 CHAR CODE 


aSRS 
#ENDOP4+1 4 CHAR CODE 
OPCEND 
#0PCOD4 
XTEML TABLE PTR 
BEGSYM 
XTEMZ SYMBOL FTR 
O,X GET A SYMBOL CHAR 
ENDSYM 
SRS IF ALL CHARS MATCH - BRANCH 


O,X COMPARE TO TABLE CHAR 


XTEM1L FOUND IT - GET FLAGS 
#SS0 SET OPCODE FLAG 


#ENDOPS+1 

OFCEND 

#OPCODS 

OSRe 

O.,X FIND NEXT OPCODE 


#478 

OSR1LO NOT A FLAGS BYTE - ADVANCE 
OPCEND 

OSRS 


BEGSYM WAS IT A,B OR X? 
0.X 

#-A 

OSR1Z 

#°B 

OSR1S 

#SS1 WAS A OR B 

MRI 


XREF 


OGDE 
O60F 
OGE! 
O6ES 
OGES 


Q6E7 ° 


O4ER 
O46EA 
O4EC 
O6EE 
O4EF 
O4F 1 
O&FS 
O4FS 
O4F4 
O4FS 
O4FA 
O6FC 


O4FD § 


Q&6FF 
aO7O1 
0703 
O704 
9706 
Q708 
070A 
O70E 
0700 
Q70F 
O711 
O712 
O715 
O714 
O715 
O717 
O7 1G 


O71 
O71 
Oo7 10 
O71F 
O7 ZZ 
O725 
O727 
O729 
O72E 
o720 
O7 ZF 
O730 
0733 


O736 2 


0738 
O73A 
O73 


o720 ° 


56 
FE 
Pata] 
Ag 


E7 


Fi 
00 
ii 
O795 
o7é60 
00 
OL 


4 FF 


Oz 


O38 


O7B 
O7FD 
op 
OA 
OS 


0340 GSR1L4 
os4i OSRiIS 
0842 

o843 

0844 

0845 

O844 # 
OQB4A7 HHHKHE 
Os43 # 
os47 COMSYM 
OS50 

OSS 4 

Ossz 

Oss3 

0854 

OHSS 

Ossé 

0857 

osss 

easy 

0340 

OB4é4 

0862 

O65 

0564 

O45 

O8hé 

O847 

OB4S 

O86) 

&70 

O87 4 

0872 

O873 

O87 4 

os75 CMSé 
O876 

O77 

OS7S 

O77 # 
OSSO wae 


#82 ADDSYM 


ALIS 
ALDSZ 


OSPZ 
Oos7S ADSL 
0894 


OS9S 


#°X 
OSR14 
#$50 
MRI 


SYMEOL 
x 
CMSé 


SYMBOL+1£ 


SYMEOL+3 
cMsé 


SYMEOL+4 


SYMBOL+5 
x 
CMS4 


XTEMZ 


TABSTA 
0, X 
ADSL 
MOV LOE 
COPSYM 
xX 

i,X 
#$FF 
ZX 
3, X 


FENDT 
MEMREM 
ADSS 
#10 
ADSS 


COMFPUTERWARE ASSEMELER FAGE i5 


WAS X 


COMPARE SYM TO TABLE 
S-T 


SET Z FLAG 


ADD SYMBL TO TBL IN SORTED ORDER 
ANY ENTRIES? 
YES 


COPY SYMBOL TO TABLE 
MAKE SFACE FOR DEFINITION LINE # 
INSERT SEFARATOR CODE 


ENOUGH ROOM FOR IT? 


ROOM FOR 10 MORE? 
YES - ADD TO TAELE 
KILL RETURN ADDR 


XREF 


O7 SE 
O744 
0743 
O745 
0747 


O742 2 


O74E 
0740 
07350 
O752 
O755 
Q7357 
O75 
O735B 
O75E 
0740 
0742 
O74 
0747 
O764 
0740 


o7460) 
O76E 
Q770 
O77z 
a773 
0775 
QO777 
077& 
Q77€A 
O77. 
O77B 
O77F 
O74 
0782 
O784 
O784 
737 
0789 
O73E 
O73C 
O7BE 
O78F 


O790 
O79Z 
O793 
0795 
0797 
O799 
O79E 
O79D 
O79F 
O7A1L 
O7AS 


O200 
AD 
lz 
AF 
Fl 


» O7 


EBS 
O6ES 
Os 
0655 
EBS 
Oo 
C4 
O4Es 
or 
FO 
0437 
BS 
O770 
B4 


EF 


(ale) 
OA 


: BS 


F7 
cs 
OA 
cs 
OS 
QOC7 


a700 
OPOL 
OF02 
ao?v7Os3 
arv04 
o7Os 
O704 
o7o7 
o70g 
aVC? 
OF1O 
Ovid 
Ove 
OPLS 
O714 
OvLS 
OV1G 
ODL7 
OFS 
OvLy 
OF7Z0 
oOvzi 
OvZZ 
opws 
ovZ4 
O9Za 
OVZb 
OF27 
orvZe 
OFZ? 


OPC 


OVE 
0937 
OSE 
OF39 
a740 
O741 
O42 
Ov4s 
OV44 
0945 
O94é 
OV47 
O94s 
OV4aP 
0950 
OVS 1 
OF5Z 
O53 
0954 
O955 
O9S6 
957 
Oo95s 
OVS? 


ALS 


COPSYM 


MOVLOB 


PRP PrP PPD PR POR PIY 


DDD 


OVERF 
AFTER 
ADSS 
BEFORE 
TAESTA 
ADS4 
XTEM1L 
COMSYM 
ADSS 
FORWD 
XTEM1L 
QO, xX 
ALS? 
COMSYM 
ALsSs 
ADS4 
BACKUP 
XTEML 
MOVIO 
ALSZ 


SYMBOL 
xX 


SYMECL+ § 
X 


SYMBOL+2 
X 


SYMBOL+3 
x 


SYMECL+4 
x 


SYMEOL+S 
xX 


XTEM1L 


TABEND 


O,X 
10, X 
XTEML 
MCV 10A 
LENT+1 
#10 
LENT+1 
MOV LOC 
LENT 


COMFPUTERWARE ASSEMBLER 


AT BEGINNING? 
YES 


INSERT AT BEGINNING? 
YES 


END OF TABLE? 

YES 

ERRORi ALREADY HERE 
SYMEOL>TABLE 


MAKE SPACE HERE 


PAGE 


14 


COPY SYMEOL TO TABLE FROM BUFFER 


C 


MAKE A 1O BYTE SPACE IN TABLE 


MOVE IT 10 BYTES FORWARL 


... XTEML IS REACHED; 


UFDATE LENGTH 


THEN 


UNTIL. . 


STOF 
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O7Aé 20 11 o760 MOVIOC BRA FENDT 


Ové1 # 
OVGZ HHH 
OVER # 
O7AS O8 ov64 INSDF& INX INSERT DEFINITION AT 
Q7A? OS O65 INX EXISTING ENTRY 
O7AA OS OVLE INX 
O7AB OS O947 INX 
O7AC OS aves INX 
O7ALD OS 0969 INX 
Q7AE 34 Oov70 INSDEF FSH A INSERT DEFINITION AT NEW ENTRY 
O7AF 39& BF O971 LOA A LNUM 
Q7EL AZ OO OF7Z STA A O,X 
O7ES 94 CO O973 LOA A LNUM+1 
O7B5 A7 Ol O974 STA A 1,X 
O7B7 32 OP75 FUL A 
O7BS aOv7é RTS 
O977 # 
OV7R eH 
OF79 
O7EY 94 Fi ovso FENDT LDA A TABSTA FIND END OF TABLE 
O7EB Il6é FZ oval LOA BE TABSTA+L 
O7ED DE Cs OvsZ ADD & LENT+4 
O7EF ¥? C7 Ores An A LENT 
O7CL Y7 EF orEe4 STA A TABEND 
o7C3 D7 FO O7aBS STA E TABEND+1 
O7035 3Y eh tetay RTS 
OVS7 # 
OVS HHH 
Ovay + 
O7Cé DOF BS ovva ADDREF STX XTEML A400 A REF TO TABLE 
O7CS SL EF Orzl BSR FENDT CHECK MEMORY REMAINING 
QO7CA GI Si Ovrs ESR MEMREM 
O7CL 26 OF O9FPR BNE ALRF 1 
O7CLE CO OZ ag74 SUE EB #2 
O700 ZA O05 O79S BFL ADRF 1 ENOUGH LEFT 
a702 Si OVE INS KILL RETURN ADDIIR 
O7U3 Sl OVI7 INS 
O70D4 7E oZznl ovve IMF OVERF 
O707 DE BS o9977 AURFL LUDX XTEM1L 
O70D7 BD 0455 Load JSR FORWD 
Oo7nC OF 1001 DEX MAKE SPACE JUST BEFORE... 
O7D0D oF 1Q00Z DEX ... NEXT SYMBOL 
O7DE DF BS Loos STX XTEM1L 
O7EO SD Os 1004 BSR Move 
O7EZ 7E O7AE 1005 JMF INSDEF 
1004 # 
LOO7 wststseH 
1003 #* 
O7ES DE EF 1009 MOVZ LUX TABEND MAKE A 2 BYTE SFACE 
O7E7 OF 1010 MOVZ1 DEX 
QO7ES A& OO 1oL1 LDA A a, X 
O7EA A7 OZ 101z STA A Z,X 
QO7EC YC BS 1ais CPX XTEML 
O7EE 26 F7 1014 BNE MOVa 1 
O7FO 9& CS 1015 LUA A LENT+1L UPDATE LENGTH VARIABLE. . 
O7FzZ SB O02 1016 ADD A #2 
O7F4 97 CS 1017 STA A LENT+I1 
O7F& 24 OF 1018 Bcc MOV22 


O7F& 70 O0C7 1019 INC LENT 


XREF 


O7FE 


O7FD 
O7FF 
O8o0L 
0803 
O8OS 
O807 
o8op 


aQeoAa 3 


OS0L 
ofan 
OS0E 
OS0OF 
Oslo 
onlZ 
OLS 
Osl5S 
O17 
oS1s 
OBL? 
OSlB 
OslD 
OS\F 
O82 5 
O323 
0824 
0824 
Ooze 
OSZA 
osZc 
OS2E 
OG2ZF 
OS30 


Oss & 


OSS3 
O83 
0337 


OoSy Z 


OS3B 
OSSC 


OSSE 


NB40 2 


OS42 
0844 
O845 
0847 
0849 
034B 
os4D 
O384E 
0850 
0852 
O84 


20 


BC 


1020 
1ozh 
1022 
Lozs 
1024 
1oz5 
L024 
1027 
ozs 
Loz2¥ 
1030 
1031 
Los2 
1o32 
1034 
LOBE 
Losé 
1037 
Lose 
Los? 
1040 
104} 
1042 
1043 
1044 
1045 
1044 
1047 
1045 
1049 
1050 
Lo51 
1052 
L1o52 
1054 
1055 
L054 
1057 
LOSES 
1059 
1060 
L1o6é1 
1062 
1063 
1064 
1065 
1064 
1047 
1068 
10469 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 


MOV22 
* 
HHH 
* 


MEMREM 


SMAZ 


SMAS 


SMA4 


SMAG 


SMA7 


SMAY 


+ 
HHH 
+ 
EPARSE 


EFL 


BRA 


bp PrD PD DPD BD 


FENDT 


MAXMEM 
MAXMEM+1 
TABEND+ { 
TABEND 
#4 

#0 


BEGSYM 


XTEMZ 


LBEUFE 
SMAY 
1,X 
a, X 
SMA7 


x 
XTEMZ 
SMAZ 


XTEMZ 


QO, X 
EFS 
#SPACE 
EFZ 


EPL 
#502 
EPS 


COMPUTERWARE ASSEMBLER FAGE 1& 


CALC UNUSED MEMORY SIZE 


COMPRESS UFCODE TO 4 CHARS 


IS 4TH CHAR A SPACE? 
YES 


IS STH CHAR AN “AY OR “B+ 


YES 
Is &éTH CHAR A SPACE? 


YES - SQUEEZE THE OFCODE 


FARSE FOR EXPRESSION 


CAST OUT SPACES 


END OF LINE? 
NG 


XREF 


OS55 
QeSS 
OSS7 
o8s? 
OSSB 
o8sD 
OSSF 
OS4éL 
0863 
O&65 
08464 
0847 
0869 
OdeéE 
Ose 
OS4SF 
0871 


0873 
O376 
O876 
0875 
O87E 
0830 


O8S2Z § 


0384 
O87 
OSGA 
osen 
0390 
OB73 
OS76 
Os?y 
Os7t 
OS9rF 
OSAZ 
OGAS 
OGAS 
O8SAB 
O8AE 
OSB i 
OSb3 


OSES 
OSB7 
OSBy 
OSBE 
OSBE 
oscil 
osc4 
0sc7 
oscy 
OsSCB 
OSCE 


oeDl 


0000 
Al 

OL1LS 
OA4D 
EO 

OZ 

Bo 

O1EE 
Ove 
O19Z 
OvéSB 
OLFO 
OvSE 
O154 
Ove 
OLEC 
Ove 


Logo 
1061 EFS 
10&z 
Loss 
1084 
1085 
L084 
1087 EFS 
Loss 
losey EF? 
1070 EFLO 
Lo?i 
1092 
10923 
L094 
1ov5 EPS 
L096 
1097 + 
LOGS HHH 
1aoyy # 
{100 FTABLE 
L101 
L1oz 
L1o3 
1104 
L105 
L106 
1107 
1106 
L109 
LLL0 
dill 
LL1z 
1113 
1114 
A115 
L116 
L117 
Liis 
1119 
1120 
1izl 
L122 
1123 
11iz4 * 


JSR 
JSR 
LDX 
JSR 
LDX 
STX 


1125 *% START OF 


11Z& # 
1127 FTO 
1128 
Lizy 


> 1130 


Lisi 
1132 
Liss 
1134 
1135 
1136 
1137 
1138 
1139 PTI 


LOX 
LDA 
ENE 
LOX 
JSR 
LDX 
JSR 
LDA 
LDA 
JSR 
JMF 


STX 


0,X 
#90 
EFY 
#SFACE 
EFS 


DPD DPD DYDD 
+ 
# 
a] 


LEUFE 
EFS 

A X 
EP1O 
ENDSYM 
EPS 


#0 
NSYM 
INITIO 
WSPAC 
A LCOLINT 


S A #Z 


A NLINE 
#CRZ 
PSTR 
#MES7 
FSTR 
#CRS 
PSTR 
#MES3 
FPSTR 
#CRS 
PSTR 
#MES5 
PSTR 
NAMEIT 
#MESY? 
FSTR 
TAEBSTA 
XTEM1 


COMFUTERWARE ASSEMELER FAGE 


LOOK FOR CR, SF OR NULL 


FUT CR INTO LBUF 


CLEAR TO END OF LBUF 


PRINT THE TABLE 


TITLE 


COL. HEADINGS 


EACH LABEL FRINT 


XTEML 

A O,X 
PTL 
#CR2 
PSTR 
#MESS 
PSTR 

A NSYM 

B NSYM+1 
DECTYP 
PAGEUP 


XTEM1 


EGUALS ’0O- IF DONE 


FEED TQ TOF 
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XREF COMPUTERWARE ASSEMBLER PAGE 20 


osnus CE OIFO 1140 LDX #CRS 
oenéd BD oVSe Li4i JSK FPoTR 
osny DE ES 1142 LIX XTEM1 PRINT SYMBOL NAME 
OSDE E& 04 1143 LUA EB &,X SAVE THE 7TH CHAR 
Osnn 8&4 04 1144 LDA A #4 “END OF STRING’ FLAG 
OSDF A7 04 4145 STA A 6X 
OSE1 BL OFSB 1144 JSR PSTR 
OSE4 E7 00 1147 STA B O,X RESTORE THE TABLE 
OSE6 846 20 1148 LOA A #SPACE 
OSES BD OLic Li4? JISK IGOLIT 
OSEG AG 00 1150 LDA A 0,X PRINT DEF 
OSED E& Of Li51 LUA B i,X 
OSEF BD 0944 L152 JSR DECTYP 
OSF2 DIF BS L1i53 STX XTEML 
OGF4 CE OLFS3 1154 LIX #S5F4 
OSF7 BD ovYaB Liss JSR STR 
OSFA D4 Dz L156 LOA B LINLEN SET-UP # OF COLUMNS 
OSFro D7 DL 1157 STA E COLs 
OSFE DE ES L156 LOX XTEML 
LiS9 # 
0900 08 1140 PTZ INX 
oval os 1141 INX 
ovoz AG OO L162 LDA A GO, X CHECK FOR END OF ENTRY 
o704 ES OL L143 LIA EB 1,X 
o7dé Gi FF 1144 CMF A #$FF 
Oov0s 24 OE Lié5 BNE FITS 
OFaA Lt L166 CBA 
OvOB 2&4 OF 1147 BNE PTS 
OvOD Ob 11465 INX Is END —- MOVE TO NEXT 
OYOE 0&5 L169 INX 
O?VOF DF BS 1170 STX XTEML 
oF7ll DE Al L174 LIX NSYM 
OVLS Of Li7z INX 
ov14 DF Al L173 5STX NSYM 
avlé 20 YO 1174 ERA FTQ 
Ji7S # 
Ovils BO OV464 L174 FTS JSR DECTYF FRINT REFERENCE 
OF IB S& 270 L177 LDA A #%20 SPACE 
OVID BO OL1S L178 JSR TOOUT 
O7zZ0 7A OODL L117 BEC COLS OUT OF ROOM ON FAGE * 
oyvyzZ3 26 DB Lisa BNE PTZ Na — CONTINUE AT FT2 
Lisl +# 
ovZz5 DF BS L182 STX XTEML 
O9Z7 AG OZ ies LDA A zZ,X CHECK FOR END OF REFS 
QP29 ES OF Lis4 LDA B 3, X 
O9ZER S1 FF 1185 CMF A #$FF 
OvzZn 2&4 OF Liga BNE FT4 NOT THE END 
OVZF Li L127 CEA 
Orso Z7 of L188 BEG  FT7 THE END - SKIF THE CR & SPACES 
Lisv # 
OovazZ CE OLFO Lilva FTS LOX #CR5 
O9735 BO OoFeb L191 JSR FSTR 
OVE CE OL1F& Live LOX #515 
OYSB BO OvVSB 1193 JSR FSTR 
Liv4 # 
OVSE D4 DZ 1195 FT7 LOA B LINLEN 
o740 D7 Di 11964 STA B COLS 
0942 DE BS L197 LUX XTEML 
Q744 20 BA Live BRA FTz 


Livo # 


XREF 


OV4é 
o745 
Or4A 
oF74c 
Op4F 
OFvSl 
Ova4 
OFEG6 


aQvay F 


OFSE 
OPS. 
OPSF 
OvAéL 
OFZ 
OPé4 
OFGS 


O74 
O97S 
OY7A 


OP7 : 


OF7E 
OFBO 
OFBZ 


O83 


OYSE 
ovEc 
oveD 
O9SF 
OP? t 
O993 
OPI4 
OFFS 


OVPS “ 


099s 
age? 


OvIE 
O9FE 
OZAQ 
OYAZ 


B7 
cy 
cA 
0008 
CE 
oone 
BY 
O5EA 
cy 
cA 
CE 
BY 


30 
ale) 
EY 


ao Oo ls 


By 
oo 
Bo 
OA 
ZO 


(are) 


Oo 


» FO 


BY 


(axe) 


L200 
LzoL 
L202 
L203 
L204 
1203 
1204 
1207 
1zZ205 
Lzo7 
1210 
lzil 
LzZ1zZ 
1Z1is 
1z14 
Lzis 
1216 
1217 


KZ4 LOX 


* TYFE A BYTE FAIR 
# WITH NUMBER IN AVE — 


DECTYF STX 


DCT 1 JSR 


XTEMZ 
A DDEND 
E DODENLI+1 
#10 
DOR 
#DECNOE 
XTEMS 
DIV 
A DDEND 
E DDEND+1 
EB REM+4 
XTEM3 


#°0 
O,X 
XTEM2 
#DECNO 
DCT I 
KILLZ 
PSTR 
XTEMZ 


XTEM=S 
A O,X 
A #-°0 
KZ4 
A #$20 
A O,X 


#DECNOE 
KRZZ 
XTEM= 


COMPUTERWARE ASSEMBLER FAGE 


IN DECIMAL - ENTER 
(MSE, LSB) 


START AT LS DIGIT 


MAKE INTO ASCII 


DONE? 

NO 

SUPPRESS LEADING ZEROES 
PRINT IT 


SUPPRESS LEADING ZEROES 


WAS A ZERO 


* FRINT A STRING ON OUTPUT DEVICE 


FCHAR 


PSTRZ 


END OF STRING? 
NO 


* PRINT A CHAR AND CHECK FOR END OF PAGE 


RTS 
cd 
ey 
PSTR PSH 
PSH 
FSTRZ LOA 
CMF: 
ENE 
PUL 
PUL 
RTS 
PSTR4 ESR 
INX 
BRA 
* 
* 
PCHAR JSR 
CMF 
BEG 


PCHZ RTS 


IOOUT 
A #$D 
PCH4 


ay 
a 
= 


XREF 


OPAS 
OFASG 


OFAS 


OYAB : 
OVAL $ 
OFAF 3 


OYE S 
OFES 
OPES 
OFBS 
OYEB 
OVE 
OYCO 
O9CS 
o9cs 
OFC7 


OFCF 
OFTL 
ovD4 
OPTS 
OFDS 
ovDA 
125) 


O7DE 2 


OFEO 
OPEL 
OFES 


OPE4 
OVES 
OVES 
OVEB 
OVER 
OYEE 
QYF I 
O9F4 
OVF7 
OFFA 
O?Fo 


OOF S 
FA 
oone 


i 
re 


EQ 
pale) 
ay 
020 
D3 


cn 


OOF S 
14 
Do 
Om 
OLFO 
rete) 
O4 
O46 
O11 


F4 


EE 


OLDE 
0435 
OBIS 
0455 
OLFO 
0455 


W240 


L264 
1262 
12463 
1264 
1265 
1266 
1247 
1268 
1Z49 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1273 
1279 
4280 


SON O Up oe 


weds OD to Co Ca co oo 
o 


wo 


reg 


net 
~! 


ele el oe ee 


NON RIOND NORD ND NDR RRR Ro RRR Bo 


OMNVue Mane 


° 


1304 
1305 
L306 
1307 
1308 
L309 
1310 
isi 
131z 
{S13 
1314 
ISi5 
1316 
1317 
1316 
IS1l9 


+ 


* FEED 
% 


FAGEUF 


FAGE 1 
FAGEZ 


FAGES 


PAGED 
* 


TST 
BEG 
DEC 
ENE 


COMPUTERWARE ASSEMELER FAGE 


FGON PAGINATION ON? 
PCHZ NO 

NLINE END OF FAGE? 
PCHZ NO 


LOA A LCOUNT 
STA A NLINE 


STX 
LOX 
BSR 
LDX 
ESR 
JSR 
LDX 
BSR 
LDX 
RTS 


OF'CEND TEMP SAVE 
#EGP 

PSTR 

#MESS 

PSTR 

NAME 1T PRINT FILE NAME 
#MES? 

PSTR 

OPCEND 


PAGE TO TOF 


TST 
BEG 
LOA 
ADL 


EB 
EB 


* PRINT FILE 


* 


NAMEIT LDA E 
LUA A #5FACE 


NAMEZ 


* 
# 


JSR 
DEC 
BNE 
LDX 
ASR 
LDX 
ASR 
LOX 
IMP 


E 


PGON 

PAGE? NO PAGINATICN 

NLINE GET LINES REMAINING 
#Z 

#CRS 

x 

#4 

PAGES 

TOOUT 


PAGEZ 


FAGEL 


NAME IN HEADER LINE 
NSFAIC 
FICHAR SPACE OVER TO RIGHT EDGE 


NAMEZ 
#MES1O "FILE NAME" 
PSTR 

#F NEUF 

PSTR FRINT THE NAME 
#CRS 

PSTR 


OPENED Oi ANNOUNCE IT 


LDX 
JSR 
LDX 

SR 
LDX 
JSR 
RTS 


#MES1L0 "FILE NAME" 
TELOP 

#F NEUF 

TELOP 

#CRS 

TELOF 


COPY FILE NAME TO FNBEUF 


XREF 


OALS 
OALS 
OALS 
OAL7 
GALS 
OCALA 
OAIC 
OALF 
OAZL 
OAZ3 
OAZS 
0AZ7 
OAZ? 
OAZA 
OAZC 
OAZE 
OASO 
OASZ 
OAZ4 
OARS 


Fi 


1320 
iszi 
1322 


iszs 
1324 
1325 
1326 
1327 


3zi 


S2Y 
33 
wl 
33 
33: 
23 
3g 


SSH aR ODES 


i 
i: 
L 
{i 
1 
i 
1 
133 
1336 
iss 
Las! 
1337 
1340 
1341 
134z 
1343 
1344 
1345 
1344 
1347 
1346 
L349 
1350 
i351 
{352 
L353 
L354 
1355 
1356 
1357 
{S53 
i359 
1340 
1341 
1342 
13463 
1344 
1365 
1366 
1367 
1348 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 


# 
FNAME 


FNAML 


CSTRI 


* CALC 


SPAC 


LDX 
INX 
INX 
INX 
STX 
LIIA 
LDX 
STX 
Bok 
LIA 
LOX 
STA 
INX 
STX 
LDA 
BSR 
LIA 
LDIIX 
STA 
RTS 


COMPUTERWARE ASSEMBLER 


RFCEF 


#4 CHARS IN FN 
#FNEUF 

[IX 

CSTR COPY THE STRING 
#7. 

DX 


x TERMINATE THE STRING 


FROM (5X) To (DX) FOR (B> 


LDBX 
LIA 
ENE 
LIA 
INX 
STX 
LIX 
STA 


#5PACE REPLACE NULL WITH SF 


# SFACES BEFORE FILE NAME 


E 


LINLEN 
MULT BY & 

33 

WSP I WIDE ENOLIGH? 

#1 NO, USE 1 SPACE 

NSPAC 

TAESTA PURGE DEFINED REFS 


FAGE 


23 


XREF 


OAL4 
OAGE 
OAES 


OAGA : 


OAET 
OAGI 
OAGE 


QA7O : 


OA7Z 
OA74 
OA7S 
OA77 
OA72 
OA7B 
OA7oO 
OA7F 
OASL 
OASZ 
OAS4 
OASS 
0AS7 
OAS? 
OASB 
oABC 
OASE 


OAPO 2C 


OAPZ 
OAYS 
OAY4 
OAVE 
CAPS 
QAYA 
OASC 
OAVE 
OAAG 
ORAZ 
OAAS 
OAA7 
OAAS 
OAAY 
OAAB 
OAAL 
OAAF 
OABL 
OALZ 
OAB4S 
OARG 
OABG 
OABA 
OABC 
OABD 
OAEBE 
OATO 
OACZ 


OATS 
OACS 
OAC7 


FF 


PURZ 


PUR4 
PURSG 


PURS 


PURLO 


PUR LZ 


PURL4 


PURLG 


TST xX 

BNE FURLO 
TST 1,X 
BNE PURLO 
INX 

INX 

TST ZX 
BNE FURG 
TST 3X 
ENE PURG 
RTS 

LDA A O,X 
CMF A #$FF 
BE FURS 
CFX MAXMEM 
BEt PUR4 
INX 

BRA PURGE 
INX 

CPX MAXMEM 
BEU PUR4 
LDA A O,X 
INX 

CMF A #¢FF 
BNE FURS 
BRA PURI 
INX 

INX 

LDA A 0, X 
CMP A #$FF 
BNE PURI4 
LDA A 1i,X 
CMP A #$FF 
BE PURZ 
STX XTEMZ 
JSR FEND'T 
LDX TABEND 
DEX 

DEX 

STX XTEMS 
LDX XTEMZ 
LDA A Z,X 
STA A 0, X 
INX 

CPX XTEMS 
BNE FURIE 
CLR x 

CLR 1,X 
LDX LENT 
DEX 

DEX 

STX LENT 
LDBX XTEMZ 
BRA PURIZ 
PSH A 

LDX MAXMEM 
LUA A #$FF 


COMFUTERWARE ASSEMBLER 


DOES 
YES 
MAYBE 
YES 
NGO - KEEP THE REFS 


FAGE 24 


DEFINITION EXIST? 


FIND LAST BYTE USED IN TABLE 


XREF 


OALY 
OACA 
OACB 
OACD 


OACF 5 


OADL 
OADS 
OAD4 
OALS 
OADS 
OADA 
oAnC 
OATE 
OAEG 
OAEZ 
ORES 


ooo! 
0002 
erelesc 


OAE4 
OAE7 
OAES 
OAEB 
OAEC 
OAEF 
OAFO 
OAFS 
OAF4 
OAF7 
QOAFS 
OAFE 
OAFC 
OAFF 
OBOO 
OBO03 
ObO4 
OERO7 
OBOS 
OBOB 
OBO 
OBOF 
OBLO 
OBIS 
OBL4 
OEL7 
OBLE 
OBIB 
OBLIC 
OBILF 
oOBZO 
OBZ3 
OEBZ4 
OE2Z7 
OEZS 
OLBZE 
OBZC 


1440 
1441 
1442 
1442 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
145z 
1453 
1454 
1455 
1456 
1457 
1458 
L459 
1440 
1461 
146z 
1443 
1464 
1465 
1446 
1467 
1468 
1469 
1470 
1471 
1472 
147% 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1421 
14ez 
14e3 
1484 
1485 
1484 
1487 
Lass 
1439 
1430 
1471 
149z 
149% 
1494 
1495 
1496 
1497 
149s 
L499 


COMPUTERWARE ASSEMBLER 


AC & MEM REF 


INX 

FLZ DEX 
CMF A O,X 
BEG FL4 
CPX TABSTA 
BNE FL2 

FL4 INX 
STX TAEEND 
LOA A TABENDI+1 
SUB €&A TABSTATL 
STA A LENT+1 
LDA A TABEND 
SBC A TABSTA 
STA A LENT 
PUL A 
RTS 

* 

# OFCOBDE TABLES 

* 

MR EQu i MEM REF 

AR EGU Zz AC REF 

AMR EGU 3 

* 

GPCODS FCC /LDAS 
FCE AMR 
Fcr SSTAS 
FCB AMR 
Fcc SLOXS 
FCG MR 
FCC SSTXS 
FCL MR 
Foc /INX/ 
FCB ie) 
For SOEXS 
FCB Q 
FCC SINC 
FOE AMR 
FCC SDECS 
FCE AMR 
FCC SJ IMPS 
FCE MR 
Fcr SISRS 
FCB MR 
FC SRTSS 
FCE 16) 
For JPSHS 
FCa 16) 
FOC =69/FULS 
FcE QO 
Fcc STSTS 
FCB AMR 
Foo JEBSRS 
FCE MR 
FCC JBRAS 
FCoE MR 
FCC SEMIS 
FCE MR 
Foc JBPLS 
FCB MR 
Foc /BNE/S 


PAGE 25 


XREF 


OB2F 
OBSa 


OBSC 
OLB3F 
OB4O 
OB43 
OEB44 
OB47 
OBR4S 
OB4E 
OB4C 
OB4F 
OBSO 
OBSS 
OBI4 
OBS7 
OBSe 
OBSE 
OBSC 
OEBSF 
ORLO 
OBE3 
OE44 
OB47 
OBGE 
OE4GE 
OBA 
OE4F 
OB7O 
OL73 
OR74 
OL77 
OE7a 
OE7E 
OB7C 
OB7F 
OBSO 
OBSS 
Obs 
OBE 

OBS 
OBSb 
OBat 
OLGF 
OBO 
OBIS 
ORDA 
OBY7 
OBS 
OBI 
OBIC 
OBYF 
OBAQG 
OBAS 
OBA4 


L500 
1501 
L502 
1503 
1504 
{505 
L506 
1507 
i5o0g 
L509 
L510 
ISil 
L512 
I5is 
1514 
{5i5 
1516 
L517 
1518 
iSiv¥ 
1520 
i521 
1522 


1523 


L524 


L525 


1524 
1327 


L523 


L293 


stat 3 


1535 
L556 
L357 
1556 
1339 


FCE 
FLL 
FCL 
FCG 
FCB 
Fre 
FCB 
For 
FCE 
Foo 
FCE 
For 
FCE 
Foe 
FCE 
FCC 
FCLE 
FCr 
FCE 
FCG 
FCE 
Fcc 
FCE 
Fe 
FCE 
FCC 
FCE 
Fit 
FCE 
Foo 
FCE 
Foe 
FCE 
FOC 
FOE 
For 
FCE 
Foe 
Fb 
For 
FCE 
FOL 
FCE 
Foc 
FCE 
For 
FCE 
Foc 
FCB 
For 
FCE 
FCC 
FCE 
FCo 
FCB 
Fcc 
FCE 
Fcc 
FCE 
For 


/BCCS 
MR 


/COMS 
AMR 
JUESS 
.¢) 
SINSS 
16) 
JSNEG/ 
AMR 
/NOF/ 


COMFPUTERWARE ASSEMELER FAGE Zé 


XREPF 


OBA7 
OBA 
OEAB 
OBAC 
OEAF 
OBEQ 
OBES 
QOBE4 
OBE7 
OBES: 
OBE 
OBBC 
OBBF 
OBO 
OBLS 
OBM4 
OLBL7 
OBIE 
OBCE 
OBC 
OBCF 
OBO 
OBDS 
OBD4 
OLLI7 
OBL 
OGIIE 
OBDIT 
OBDIF 
OBEO 
OBES 
OBE4 
OBE7 


OBER * 


OBER 


OBEC ° 


OBEF 


OBFO & 


ORFS 
OBF 4 
OEF 7 
OBFS 
OBFE 
OBFC 
OBFF 
acoo 
ocos 
Ocoa4 
OCO7 
Oca 
OCcOoB 
ocoar 
OCOF 
OcLla 
OCLs 
ocl4 
OC17 
ocis 


OCiE 


Liéa 
L561 
1542 
13463 
L564 
L265 
L546 
1547 
L565 
L562 
1570 
IS71 


LS9Z 


L593 


1594 
L595 
L574 
1597 
LS¢s 
1Sy9 
1400 
1601 
1602 
L403 
1604 
1605 
1606 
1607 
1408 
140% 
L610 
1Léi1 
1612 
14613 
1614 
1615 
1616 
1617 
1616 
1619 


FCE 
FC 
FOE 
For 
FCE 
FOL 
FCE 
FOL 
FCB 
Foc 
FCE 
Fite 
FCE 
Foo 
FCE 
FCC 
FCE 
Foo 
FCE 
FoL 
FCE 
FCC 
FCE 
Fr 
FCE 
FEC 
FCER 
FOL 
FCE 
FCC 
FCB 
Foe 
FCE 
For 
FCB 
FCC 
FCE 
FCC 
FCE 
FCC 
FCE 
FCC 
FCE 
FCC 
FCE 
Foc 
FCE 
FOC 
FCE 
FOL 
FCE 
FOC 
FCE 
FCC 
FCB 
FOL 
FCB 
FCC 


FCE 


AMR 
ADCS 
AMR 
/SUES 
AMR 
SSECS 
AMR 
SANDS 
AMR 
SABAS 
c¢] 
SASLS 
AMR 
SABRS 


AMR 
/ROLS 
AMR 
/RORS 


STPAS 
ie) 
STXSS 
Q 
/CLOS 
QO 
SSEECS 
ce) 
SCLIS 
ce) 
SOLVS 
9 
SEEIS 
Q 
SSEVS 
0 
SSWIS 
ie) 


JWAIS 
6) 
SDAAS 
ce) 
/RTIS 


QO 


COMPLTERWARE ASSEMBLER 


PAGE 


27 


XREF 


ocle 
QCiF 
orzo 
oCzS 
0cz4 
Oocz27 
onze 
ocze 
ocze 
oczZr 
OC3SoO 
(a) Bec he 
oc34 
OC37 
Ocss 
OCSB 
ocsc 
OCSF 
0040 
ac4s 
on44 
OC47 


oc4e & 


OC4E 
oc4c 
OC4F 
ocSo 


ocss 


oca4 
ocss 
Ocs? 
ocsrn 
OCSE 
OnézZ 
OCS 
OLG7 
O46 
Océr 
oOcéD 
oc71 
QC7Z 
OC74 
QC77 
OC7E 
OC7E 
(6) t= 6) 
OCS 1 
ocss 
OCS 
OCSA 
OceE 
OCSF 
OCcya 
0cy4 
acys 
Ocyy 
OcvA 
OCIVE 
OCIF 


1420 
1625 
1622 
1423 
1624 
14625 
1624 
1427 
L628 
L429 
1630 
L631 
1622 
1632 
1634 
1635 
L436 
L437 
1636 
1639 
1640 
1441 
1642 
1643 
1644 
1645 
14644 
1447 
1646 
1649 
1650 
1451 
1652 
1653 
1654 
1655 
1654 
1457 
1656 
165% 
1640 
16414 
1662 
1463 
1464 
14465 
1464 
1447 
14465 
1445 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1477 
147& 
1679 


ENDOFS 
# 
OF OD4 


FCr 
FCB 
FCC 
FCE 
Fcc 
FCE 
Fcc 
FCE 
Foc 
FCE 
Fcc 
FCE 
FCC 
FCE 
FCC 
FCB 
FCL 
FCE 
FCC 
FCE 
FCC 
FCE 
FCC 
FE 
Fcc 
FCE 
Foc 
FICE 


Foo 
FCE 
Foc 
FCE 
Frc 
FCE 
FEC 
FCB 
FOR 
FCE 
Fcc 
FCB 
FCC 
FCE 
Fce 
FCE 
Foc 
FCE 
FCC 
FCL 
FCC 
FCB 
FCC 
FCE 
Fer 
FCL 
For 
FCB 
Fcc 
FCL 
Fcc 


SENDS 
Q 
/JEGUS 
MR 
/FCES 
MR 


/FOUBS 
MR 
JMONZ 
QO 
/NAM/ 
QO 
SOFT / 


/LOAAS 
AMR 
/LOABS 
AMR 
SETAAS 
AMR 


AR 
/SPSHES 
AR 
/PULAS 
AR 
7PULES 
AR 
STSTAS 


/STSTES 
AR 
SBITAS 
AMR 
SBITES 


COMPUTERWARE ASSEMELER 


FAGE 


pon 
2 


XREF COMPLUTERWARE ASSEMBLER FAGE 2 


OCAS O3 1650 Foe AMR 
acaA4 43 L461 Fu /CLRAS 
OCAS O27 1482 FCE AR 
OCA? 42 L683 Foc /JCLRES 
OCAL OZ 1454 FCB AR 
OCAE 43 1685 Fcc SCMFAS 
OCBzZ O3 1484 FCB AMR 
OCBS 43 L457 FOL /JCMPES 
oce7 OS 14683 FCB AMR 
OcBs 43 L439 Fee /JCOMAS 
OCB OZ 1490 FCE AR 
aceon 43 L691 Foc /JCOMES 
ocrl Of L692 FCE AR 
occez2 4E L&p73 FCC JNEGAS 
orncé Of 1494 FCB AR 
octc7 4E L695 Fcc /NEGES 
occa 02 1496 FCE AR 
occe 41 1497 Foo SADDIAS 
acne Os 1695 FCE AMR 
ocoL 41 L6év7 FCC /ADDES 
ocns of 1700 FCE AMR 
acne 44 L17o4 For JALCAS 
OCA O23 1702 FCE AMR 
OcnuE 41 L703 FCe SAUCES 
OCDIF O23 1704 FCB AMR 
OCEO 5S 1705 Fcc /SSUBAS 
OCE4 OS 1704 FCE AMR 
OCES 33 1707 For /SUBES 
OCE? OS 1708 FCE AMR 
OCEA Ss 1709 For /SECAS 
OCEE OS 17190 FCB AMR 
OCEF 53 i71Lik FCL /SECE/ 
OCFS O3 171z FCB AMR 
QOCF4 41 1712 For SANDAS 
OCFS OS 1714 FCB AMR 
OCFY 414 L7i5 FCC /ANDES 
OCF OS 1714 FCB AMR 
QCFE 41 1717 Fcc SASLAS 
on0ezZ OZ 1718 FCE AR 
Onds 41 1719 For SASLES 
OD07 OZ 1720 FCBE AR 
anas 414 17Z1 Fcc SASRAS 
enon OZ 1722 FCE AR 
onan 41 1723 Fcc SASRB/ 
ODLL OZ 1724 FCE AR 
ODLZ 45 1725 Fcc JEORAS 
ODLS O23 1726 FCB AMR 
OOL7 45 1727 FCC JEQRES 
ODDIE O23 1728 FCB AMR 
onic 40 1727 Fcc SLSRAS 
ODZO OZ 17390 FCB AR 
anzl 40 1731 FCC /LSRES 
Ones Of 173Z FCB AR 
onuz& 4F 1733 Fcc JORAAS 
OLDZA O23 1734 FCB AMR 
QODZE 4F 1735 Fcc JORAES 
OLDZF O03 1736 FCB AMR 
ODSO S2 1737 FCC /SROLAS 
OD34 OZ 1733 FCE AR 
ODSS SZ 1739 FCC SROLBS 


XREF 


Ons? 
OnsA 
ODSE 
ODSF 
on4s 
OD44 
on4s 


oLn4y 


Ona? 
ODnS 


ODDS 


ODE J 


QES7 
9100 


Oz 1740 
ba 1741 
Oz 1742 
50 1743 
00 1744 
BZ 1745 
Oz 1746 
1747 
1745 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1754 
1757 
1758 
1759 
17640 
L744 
1746Z 
1762 
1764 
1765 
1766 
1767 
1768 


COMPUTERWARE ASSEMBLER FAGE 30 


FCE AR 
For /SRORAS 
FCE AR 
For JFAGES 
FCE 18) 


FCC 9 /RORB/ 
ENDOP4 FCE AR 
* 
*END OF ROMAELE CODE 
* 
BUFFERS 


+ 

* 

* MUST USE RAM FROM HERE TO MAXMEM 
# 


ORG  ENDOP4+1 
LEUFZ RMB 140 LINE BUFFER 
LEUFEZ EGU # 
% FILE NAME EUFFER 
FNEUF ORME 42 
% DISK BUFFER 
RECB ORME 166 
BEGT EGU x BEGIN TABLE HERE 
END START 


NG ERROR(S) DETECTED 


